You're the Director/You're The Director.iso/pc/pcf/ds.dir/00263_tabletiles.ls

Text File | 1995-10-08 | 487 b | 32 lines

on mouseDown
  if the clickOn < 21 then
    exit
  end if
  if the controlDown then
    exit
  end if
  set yu to the clickOn - 20
  initsel()
  setAt(selected, yu, 1)
  setbar()
  if the doubleClick then
    repeat with x = 21 to 44
      if (yu + 20) = x then
        playmovn4(yu)
        exit
      end if
    end repeat
  end if
end

on mouseUp
  if the clickOn < 21 then
    exit
  end if
  if the controlDown then
    playmovn()
  else
    set yu to the clickOn - 20
  end if
end